/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / amos / AMCAFExa.lha / AMCAF_Examples / QsinCosArcSqr.AMOS

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 76 31 33 34 20 |AMOS Bas|ic v134 |
|00000010| 00 00 07 92 1f 01 06 52 | 00 36 20 2a 2a 2a 2a 2a |.......R|.6 *****|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000040| 20 43 6f 6d 6d 61 6e 64 | 73 20 75 73 65 64 3a 20 | Command|s used: |
|00000050| 00 00 1a 01 06 52 00 2c | 20 2a 20 20 20 20 20 20 |.....R.,| *      |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 20 3d |        |     * =|
|00000080| 51 61 72 63 00 00 1b 01 | 06 52 00 2e 20 2a 20 20 |Qarc....|.R.. *  |
|00000090| 20 20 20 20 20 20 20 20 | 20 41 6d 63 61 66 20 45 |        | Amcaf E|
|000000a0| 78 61 6d 70 6c 65 73 20 | 20 20 20 20 20 20 20 20 |xamples |        |
|000000b0| 20 2a 20 3d 51 73 71 72 | 20 20 00 00 1b 01 06 52 | * =Qsqr|  .....R|
|000000c0| 00 2e 20 2a 20 20 20 20 | 20 51 73 69 6e 2d 51 63 |.. *    | Qsin-Qc|
|000000d0| 6f 73 2d 51 61 72 63 2d | 51 73 71 72 20 56 31 2e |os-Qarc-|Qsqr V1.|
|000000e0| 30 20 20 20 20 20 20 2a | 20 3d 51 73 69 6e 20 20 |0      *| =Qsin  |
|000000f0| 00 00 1b 01 06 52 00 2e | 20 2a 20 20 20 20 20 20 |.....R..| *      |
|00000100| 57 72 69 74 74 65 6e 20 | 62 79 20 43 68 72 69 73 |Written |by Chris|
|00000110| 20 48 6f 64 67 65 73 20 | 20 20 20 20 20 2a 20 3d | Hodges |     * =|
|00000120| 51 63 6f 73 20 20 00 00 | 1f 01 06 52 00 36 20 2a |Qcos  ..|...R.6 *|
|00000130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000150| 20 20 20 2a 20 42 6c 69 | 74 74 65 72 20 43 6c 65 |   * Bli|tter Cle|
|00000160| 61 72 20 20 00 00 18 01 | 06 52 00 28 20 2a 2a 2a |ar  ....|.R.( ***|
|00000170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000190| 2a 2a 20 20 00 00 04 01 | 06 52 00 00 00 00 25 01 |**  ....|.R....%.|
|000001a0| 06 52 00 42 20 4f 70 65 | 6e 20 61 20 6e 69 63 65 |.R.B Ope|n a nice|
|000001b0| 20 6c 69 74 74 6c 65 20 | 73 63 72 65 65 6e 2e 20 | little |screen. |
|000001c0| 4e 74 73 63 20 69 73 20 | 73 75 70 70 6f 72 74 65 |Ntsc is |supporte|
|000001d0| 64 20 66 6f 72 20 47 72 | 65 67 73 20 73 61 6e 69 |d for Gr|egs sani|
|000001e0| 74 79 20 3b 2d 29 00 00 | 1c 01 09 ea 00 3e 00 00 |ty ;-)..|.....>..|
|000001f0| 00 00 00 5c 00 3e 00 00 | 01 40 00 5c 00 3e 00 00 |...\.>..|.@.\.>..|
|00000200| 01 00 ff c0 25 16 ff e2 | 00 3e 00 00 00 38 00 5c |....%...|.>...8.\|
|00000210| 00 3e 00 00 00 02 00 5c | 00 3e 00 00 00 00 00 00 |.>.....\|.>......|
|00000220| 11 01 14 46 00 54 0d 34 | 00 54 13 dc 00 3e 00 00 |...F.T.4|.T...>..|
|00000230| 00 00 00 54 13 d2 00 3e | 00 00 00 01 00 54 0b ae |...T...>|.....T..|
|00000240| 00 00 16 01 06 52 00 24 | 20 4c 69 6d 69 74 20 74 |.....R.$| Limit t|
|00000250| 68 65 20 6d 6f 75 73 65 | 20 74 6f 20 69 74 27 73 |he mouse| to it's|
|00000260| 20 62 6f 75 6e 64 61 72 | 69 65 73 2e 00 00 03 01 | boundar|ies.....|
|00000270| 0c ca 00 00 03 01 1e 54 | 00 00 26 01 06 52 00 44 |.......T|..&..R.D|
|00000280| 20 4e 6f 77 20 74 75 72 | 6e 20 6f 6e 20 64 6f 75 | Now tur|n on dou|
|00000290| 62 6c 65 20 62 75 66 66 | 65 72 69 6e 67 2e 2e 2e |ble buff|ering...|
|000002a0| 20 6e 6f 74 20 72 65 61 | 6c 6c 79 20 72 65 71 75 | not rea|lly requ|
|000002b0| 69 72 65 64 2c 20 62 75 | 74 20 6d 61 6b 65 73 20 |ired, bu|t makes |
|000002c0| 74 68 65 20 00 00 0e 01 | 06 52 00 14 20 70 72 6f |the ....|.R.. pro|
|000002d0| 67 72 61 6d 20 6d 75 63 | 68 20 6e 69 63 65 72 20 |gram muc|h nicer |
|000002e0| 00 00 08 01 01 2c 00 54 | 0e 2c 00 3e 00 00 00 00 |.....,.T|.,.>....|
|000002f0| 00 00 1d 01 06 52 00 32 | 20 43 61 6c 63 75 6c 61 |.....R.2| Calcula|
|00000300| 74 65 20 74 68 65 20 70 | 6f 69 6e 74 20 69 6e 20 |te the p|oint in |
|00000310| 74 68 65 20 6d 69 64 64 | 6c 65 20 6f 66 20 74 68 |the midd|le of th|
|00000320| 65 20 73 63 72 65 65 6e | 20 20 00 00 17 01 00 06 |e screen|  ......|
|00000330| 00 00 02 00 6d 78 ff a2 | 0b 58 ff ec 00 3e 00 00 |....mx..|.X...>..|
|00000340| 00 02 00 54 00 06 00 06 | 02 00 6d 79 ff a2 0b 74 |...T....|..my...t|
|00000350| ff ec 00 3e 00 00 00 02 | 00 00 09 01 06 52 00 0a |...>....|.....R..|
|00000360| 20 4d 61 69 6e 20 6c 6f | 6f 70 00 00 04 01 02 50 | Main lo|op.....P|
|00000370| 04 24 00 00 15 03 06 52 | 00 22 20 53 77 61 70 20 |.$.....R|." Swap |
|00000380| 73 63 72 65 65 6e 73 20 | 61 6e 64 20 63 6c 65 61 |screens |and clea|
|00000390| 72 20 6f 6c 64 20 70 61 | 67 65 2e 20 00 00 05 03 |r old pa|ge. ....|
|000003a0| 0a e2 00 54 0c ca 00 00 | 0c 03 00 4e 08 02 12 1c |...T....|...N....|
|000003b0| 00 3e 00 00 00 00 00 5c | 00 3e 00 00 00 00 00 00 |.>.....\|.>......|
|000003c0| 12 03 06 52 00 1c 20 47 | 65 74 20 74 68 65 20 6d |...R.. G|et the m|
|000003d0| 6f 75 73 65 20 63 6f 6f | 72 64 69 6e 61 74 65 73 |ouse coo|rdinates|
|000003e0| 2e 20 00 00 15 03 00 06 | 00 0c 02 00 78 6d ff a2 |. ......|....xm..|
|000003f0| 0c 1e 00 74 1e 16 00 7c | 00 54 00 06 00 12 02 00 |...t...||.T......|
|00000400| 79 6d ff a2 0c 38 00 74 | 1e 24 00 7c 00 00 1b 03 |ym...8.t|.$.|....|
|00000410| 06 52 00 2e 20 43 61 6c | 63 75 6c 61 74 65 20 74 |.R.. Cal|culate t|
|00000420| 68 65 20 64 65 6c 74 61 | 20 63 6f 6f 72 64 69 6e |he delta| coordin|
|00000430| 61 74 65 73 20 74 6f 20 | 74 68 65 20 6d 69 64 64 |ates to |the midd|
|00000440| 6c 65 00 00 1f 03 00 06 | 00 18 02 00 64 78 ff a2 |le......|....dx..|
|00000450| 00 06 00 0c 02 00 78 6d | ff ca 00 06 00 00 02 00 |......xm|........|
|00000460| 6d 78 00 54 00 06 00 1e | 02 00 64 79 ff a2 00 06 |mx.T....|..dy....|
|00000470| 00 12 02 00 79 6d ff ca | 00 06 00 06 02 00 6d 79 |....ym..|......my|
|00000480| 00 00 1c 03 06 52 00 30 | 20 54 68 65 20 61 6e 67 |.....R.0| The ang|
|00000490| 6c 65 20 69 73 20 63 61 | 6c 63 75 6c 61 74 65 64 |le is ca|lculated|
|000004a0| 20 75 73 69 6e 67 20 74 | 68 65 20 51 61 72 63 20 | using t|he Qarc |
|000004b0| 66 75 6e 63 74 69 6f 6e | 00 00 16 03 00 06 00 24 |function|.......$|
|000004c0| 04 00 61 72 63 00 ff a2 | 00 4e 08 02 16 c2 00 74 |..arc...|.N.....t|
|000004d0| 00 06 00 18 02 00 64 78 | 00 5c 00 06 00 1e 02 00 |......dx|.\......|
|000004e0| 64 79 00 7c 00 00 14 03 | 06 52 00 20 20 47 65 74 |dy.|....|.R.  Get|
|000004f0| 20 74 68 65 20 64 69 73 | 74 61 6e 63 65 20 74 6f | the dis|tance to|
|00000500| 20 74 68 65 20 6d 69 64 | 64 6c 65 20 00 00 20 03 | the mid|dle .. .|
|00000510| 00 06 00 2a 04 00 72 61 | 64 00 ff a2 00 4e 08 01 |...*..ra|d....N..|
|00000520| 13 66 00 74 00 06 00 18 | 02 00 64 78 ff e2 00 06 |.f.t....|..dx....|
|00000530| 00 18 02 00 64 78 ff c0 | 00 06 00 1e 02 00 64 79 |....dx..|......dy|
|00000540| ff e2 00 06 00 1e 02 00 | 64 79 00 7c 00 00 23 03 |........|dy.|..#.|
|00000550| 06 52 00 3e 20 44 72 61 | 77 20 61 20 6c 69 6e 65 |.R.> Dra|w a line|
|00000560| 20 66 72 6f 6d 20 74 68 | 65 20 6d 69 64 64 6c 65 | from th|e middle|
|00000570| 20 74 6f 20 61 20 70 6f | 69 6e 74 20 69 6e 20 33 | to a po|int in 3|
|00000580| 32 20 70 69 78 65 6c 73 | 20 64 69 73 74 61 6e 63 |2 pixels| distanc|
|00000590| 65 20 00 00 34 03 0e 74 | 00 06 00 00 02 00 6d 78 |e ..4..t|......mx|
|000005a0| 00 5c 00 06 00 06 02 00 | 6d 79 00 94 00 06 00 00 |.\......|my......|
|000005b0| 02 00 6d 78 ff c0 00 4e | 08 02 11 14 00 74 00 06 |..mx...N|.....t..|
|000005c0| 00 24 04 00 61 72 63 00 | 00 5c 00 3e 00 00 00 20 |.$..arc.|.\.>... |
|000005d0| 00 7c 00 5c 00 06 00 06 | 02 00 6d 79 ff c0 00 4e |.|.\....|..my...N|
|000005e0| 08 02 11 06 00 74 00 06 | 00 24 04 00 61 72 63 00 |.....t..|.$..arc.|
|000005f0| 00 5c 00 3e 00 00 00 20 | 00 7c 00 00 22 03 06 52 |.\.>... |.|.."..R|
|00000600| 00 3c 20 49 66 20 74 68 | 65 20 72 61 64 69 75 73 |.< If th|e radius|
|00000610| 20 69 73 20 6e 6f 74 20 | 7a 65 72 6f 2c 20 64 72 | is not |zero, dr|
|00000620| 61 77 20 61 20 63 69 72 | 63 6c 65 20 61 72 6f 75 |aw a cir|cle arou|
|00000630| 6e 64 20 74 68 65 20 6d | 69 64 64 6c 65 20 00 00 |nd the m|iddle ..|
|00000640| 1a 03 02 be 00 2c 00 06 | 00 2a 04 00 72 61 64 00 |.....,..|.*..rad.|
|00000650| 02 c6 0e 9a 00 06 00 00 | 02 00 6d 78 00 5c 00 06 |........|..mx.\..|
|00000660| 00 06 02 00 6d 79 00 5c | 00 06 00 2a 04 00 72 61 |....my.\|...*..ra|
|00000670| 64 00 00 00 16 03 06 52 | 00 24 20 4e 6f 77 20 75 |d......R|.$ Now u|
|00000680| 6e 76 65 69 6c 20 74 68 | 65 20 69 6e 66 6f 72 6d |nveil th|e inform|
|00000690| 61 74 69 6f 6e 20 61 71 | 75 69 72 65 64 2e 00 00 |ation aq|uired...|
|000006a0| 03 03 13 92 00 00 15 03 | 04 76 00 26 00 08 44 65 |........|.v.&..De|
|000006b0| 6c 74 61 20 58 3a 00 64 | 00 06 00 18 02 00 64 78 |lta X:.d|......dx|
|000006c0| 00 64 00 26 00 07 20 70 | 69 78 65 6c 73 00 00 00 |.d.&.. p|ixels...|
|000006d0| 15 03 04 76 00 26 00 08 | 44 65 6c 74 61 20 59 3a |...v.&..|Delta Y:|
|000006e0| 00 64 00 06 00 1e 02 00 | 64 79 00 64 00 26 00 07 |.d......|dy.d.&..|
|000006f0| 20 70 69 78 65 6c 73 00 | 00 00 16 03 04 76 00 26 | pixels.|.....v.&|
|00000700| 00 08 52 61 64 69 75 73 | 20 3a 00 64 00 06 00 2a |..Radius| :.d...*|
|00000710| 04 00 72 61 64 00 00 64 | 00 26 00 07 20 70 69 78 |..rad..d|.&.. pix|
|00000720| 65 6c 73 00 00 00 2a 03 | 04 76 00 26 00 08 41 6e |els...*.|.v.&..An|
|00000730| 67 6c 65 20 20 3a 00 64 | 00 06 00 24 04 00 61 72 |gle  :.d|...$..ar|
|00000740| 63 00 00 64 00 26 00 01 | 3d 00 00 64 00 74 00 06 |c..d.&..|=..d.t..|
|00000750| 00 24 04 00 61 72 63 00 | ff e2 00 3e 00 00 01 68 |.$..arc.|...>...h|
|00000760| 00 7c ff ec 00 3e 00 00 | 04 00 00 64 00 26 00 08 |.|...>..|...d.&..|
|00000770| 20 64 65 67 72 65 65 73 | 00 00 0d 01 02 5c 00 f2 | degrees|.....\..|
|00000780| ff a2 05 52 00 74 00 3e | 00 00 00 1b 00 7c ff 4c |...R.t.>|.....|.L|
|00000790| 1e 32 00 00 06 01 0a 04 | 00 3e 00 00 00 00 00 00 |.2......|.>......|
|000007a0| 03 01 03 b6 00 00 41 6d | 42 73 00 00             |......Am|Bs..    |
+--------+-------------------------+-------------------------+--------+--------+